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Network Management Listener main module 1773007135? $3: 2:57:11 v4. 1 
14-Sep-1984 12:50:12 DISKSVMSMASTER: CNM” she NMLMAIN.B32; (39 ea) 


1 ZTITLE ‘Network RATA Listener main module’ H 

¢ MODULE NMLSMAIN ( MAIN 3 
SSING_MODE (NONEXTERNAL=GENERAL), ; 

004 ADDRESSING” MODE (EXTERNAL=GENERAL), 3 
Boo? IDENT = ‘'V04-000') = : 
$09 1 BEGIN : 
cae / 
Bais } ra teeta Seer teat eR ee eee tee 4 : 
'® s 3 

pole 1 !e coe ra 1enT (c) 1978, 1980, 1982, 1984 * 3 
id 1 !'® DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 3 
Baie : ? ALL RIGHTS RESERVED ® F 
. ® Py 

0016 1 !* mre SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee * ; 
0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * j 
0018 1 !* INCLUS ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 3 
0019 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* F 
0020 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * F 
bos) : i? TRANSFERRED. * 3 
! * F 

00 : 1 Ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
Bog2 : - CORPORATION. * F 
! * 3 

0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * ; 
0028 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
a5 i: : 
oO) 1 PETTITT LITT LI ITIL LLL LLL hectic t tic ti titi iiiiiiiiiiiii iii iii : 
1! : 

$038 1 F 
0034 1 !++ 3 
OO 82 ' } FACILITY: DECnet-VAX V2.0 Network Management Listener : 
0037 1 | ABSTRACT: : 
0038 1! 3 
s'te4 : } This is the main module for NML. : 
0041 1 | ENVIRONMENT: VAX/VMS Operating Systen ; 
Does : AUTHOR: Distributed Systems Software Engineering ; 
S048 1 ' CREATION DATE: 1-0CT-1979 ; 
0046 1! 3 
047 1 ! MODIFIED BY: 3 
048 1! 3 
049 1! v03-004 MKPO000S 5 y- 33-Jan-1984 3 
050 1! Convert old STRNLOG fs) fon ° STRNLINM system service for 3 
b2) ' } translating logical names. : 
§38 1! v03-003 MKP0004 Kathy Perko 21-April-1983 : 
bee : Delete service functions from NML. : 
036 1 v03-002 MKP0003 Kathy Perko 1-March-1983 ; 
>) ae ie Get rid of extra NETS 4 oe to NETACP which was used 3 


Network 


Oh a bt a se 5 i as 4 tt te tt 


Management Listener main module 


v03-001 


v005 


v004 


v003 


vo02 


v001 


S53 -Sep-1984 t 93! aril) VAX=11 AM: ss-32 V 


14-Sep-1984 0:12 DISKSVMSMASTER: cui she NMLMAIN.B32; 439 

when NML was part the network booting process. 
MKP0002 Kathy Perko 17-Nov-1982 

Add checking for Network Management Version 4.0.0 and 

consolidate the version checking code into one routine. 
MKP0001 Kathy Perko 17-Dec-1981 
Bypass version number checking for autoservice functions. 

TMHO004 Tim Halvorsen p code ta19e1 


Store NICE version number of NCP we are communicating 
with, so that some level of vee 4 Tg LY oe be done. 
Mark Phase 11 (missing version number) as V1 
NMLSINITIALIZE routine. 


MKP0003 Kathy Perko 03-Sep-1981 
Temporarily tell 2.0 NCP's that NML is 2.0 also. 


TMHOO002 Tim Halvorsen gp ohugn 98 
Allow communication with 2.0.0 N 


TMHO001 Tim Halvorsen eqevut 1981 

Use sharable image callable interface. 

Make program exit quietly when the Link to NCP is aborted. 
Remove network initialization code, since NCP no longer 
initiates NML as a detached process during startup. 


2 
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Network Management Listener main modul 15-Sep-1984 57:1 Ax-11 iss- 4.0-74 NMI 
Declerations we 13-Sep-1984 $3320: 43 TEE SVMBHASTERSEWRL SRCINMLMAIN.832;1°7" 23 vO! 
09 1 ZSBTTL ‘Declarations’ 
1 


=) 
OCCoO 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
NMLSMAIN : NOVALUE, 


COOoooooo 
OOOO0DO000O 


NML_ COMMANDS 
NML_INITIALIZE, 
NM NNECT, 


NML_GETMODE : NOVALUE, 


J 
»@ 
oO 
m 
_— 
< 
mm 


Receive NICE message over Link 
Send message response over Link 


NML RESPONSE : NOVALUE; 
1 


INCLUDE FILES: 


RARY ‘LIBS:NMLLIB'; Post itgow eg definitions 
NICE definitions 

NETACP Q10 interface 

VMS common definitions 


B 
BRARY *SHRLIBS:NMAL IBRY'; 


RARY 'SHRLIB$:NET 
BRARY 'SYSSLIBRARY:STARLET'; 


; NML mode symbols (set in NML$B_MODE) 


! Initializing 
¥3 ! Started via connect 


“ou 
oO 
. 


L$_INIT 
NML$~ CONNECT 
1 


OWN STORAGE: 


BIND 

NML_VERSION = UPLIT BYTE (NMLSK_VERSION, 
NMLS$K~DEC_ECO 

NMLS$K_USER_ECO); 


OWN 


NML$B_MODE : BYTE 
INITIAL (NMLS_INIT), ! NML mode of operation 
NMLS$L_CMDNCBLEN, ' Length of NCB data 
NMLSW_CMD_CHAN: WORD, ' Channel to logical Link to NCP 
NMLSA_NCBADDRESS, ! Address of NC 

NMLSA_NCBDATA 

NML$Q-SRVIDDSC: BLOCK £8 .BYTE] 

NMLSAB_RCVBUFFER: VECTOR 


WN 9 CONOUES WN“ OOONOULSWN—O0OO~n 


! Address of optional NCB data field 
' Descriptor of autoservice NCB 
nml$k_rcvbflen, BYTE]; | Message buffer 

! 


: EXTERNAL REFERENCES: 


w MIFEWN CO OONOUSWN—O0O~N 
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1 LITERAL 
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WO O0O~ 


eee ROUTINE . 
NMLSINITIALIZE, ! Initialize NICE processor 
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Declarations -Sep- DISK 
> 144 143 (1 NMLSPROCESS NICE: NOVALUE, ! Process a single NICE message 
s 145 Ole 1 NMLSTERMINATE: NOVALUE, ! Terminate NICE processor . 
> 146 145 «1 LIBSASN_WTH_MBX; ! Assign channel with mailbox 
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SEXIT (CODE = TRUE); 
END; ! End of NML 
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v04- NMLSMAIN Main routine 14-Sep-1984 12:50:12 DISKSVMSMASTER: CNML.SRCJNMLMAIN.B32; 1 (3) 
; 148 146 1 ZSBTTL_"NMLSMAIN Main routine’ . 
; «149 147 1 ROUTINE NMLSMAIN : NOVALUE = ‘ 
; 150 198 1 ; 
s 151 149 1 !44 : 
: : ; ’ 9 } FUNCTIONAL DESCRIPTION: : 
: 1546 01 ¢ 1! This is the main routine for the DECnet-VAX Network Management : 
: 12? 01 : 3 Listener (NML). ‘ 
; 1 4 4 1! ’ 
3 157 155 1 =! ROUTINE VALUE: > 
; 138 139 1 } COMPLETION CODES: 
; 160 198 1! Always returns NML$_STS_SUC. 
; 16) 159 1! 
3 106 0160 1 !-- 
; 0161 1 
> 164 3106 BEGIN 
; «165 16 
: 166 0164 ! 
3; 167 0165 ! Determine how we were initiated. 
: 168 0166 ! 
; 169 0167 IF NML_INITIALIZE () THEN 
.. tre 0168 BEGIN 
3 «171 319? NML_COMMANDS (); ' NICE command mode 
: 16 0170 NMLSTERMINATE(); ! Terminate NICE processor 
a. SF 0171 END; 
> «174 01 ; 
: are 01 
; 176 0174 
3 Wr 0175 «(1 


-TITLE NMLSMAIN Network Management Listener main modul 
LIDENT \V04-000\° 
-PSECT S$PLITS,NOWRT,NOEXE,2 

00 00 04 00000 P.AAA: .BYTE 4, 0, 0 : 
-PSECT SOWNS,NOEXE,2 


00 00000 NMLSB_MODE: 
BYTE é 


00001 -BLKB 
00004 NMLSL_CMDNCBLEN: 
00008 NML$W_CMD_CHAN: 


»BLK 
00010 NALSA_NCBDATA: 
00014 NML$Q_SRVIDDSC: : 
0001C NMLS$AB_RCVBUFFER: 


4 


BREE se cittess 
| 
| 
| 


NMLSMAIN Network Management Listener main module 18-52 -1984 23:57:11 VAX-11 Bliss-32 V4.0-74 Page 6 NM 
v04- NMLSMAIN Main routine 127808=1 382 $3:25 315 TT EKSVMEHASTERSCWAL SRCINMLMAIN.B3251 . (3) vo 
-BLKB 512 
NML_VERSION= P.AAA 
eEXTRN NMLSINITIALIZE, NMLSPROCESS NICE 
-EXTRN NMLSTERMINATE, LIBSASN_WTH_MBX 
~EXTRN SYSSEXIT 


-PSECT S$CODES,NOWRT,2 
0000 00000 NMLSMAIN: 


» WORD Save potyiog : oie? 
00000000v 99 FB 9002 CALLS #0, NML INI IALIZE + 0167 
00000000v 5 00 FB 900¢ CALLS #0, NML_COMMANDS ; 0169 
000000006 00 0 FB 0001 CALLS #0, NMLSTERMINATE + 0170 
01 DD OOO1A 1$ PUSHL #1 : 0173 

ALL Fi.. $Y x ; 
000000006 00 01 FB o001¢ CAL S$ #1, SYSSEXIT ps 


; Routine Size: 36 bytes, Routine Base: S$CODE$ + 0000 
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NMALSMAIN Network Management Listener main module 1$-Se -1984 23:57:1 VAX-11 Bliss-32 V4.0-74 P 7 
v04- NAL COMMANDS © Main command processing routine 12280571386 $3:30:13 DLSKSVMSMASTERSENML SRCINMLMAIN.B32: 10°" (4) 


; i179 176 1 ZSBTTL_"NML_COMMANDS Main command processing routine’ 

: 190 if ! ROUTINE NML_COMMANDS: NOVALUE = 

: 18¢ 138 1 !44 

; ; , » ! FUNCTIONAL DESCRIPTION: 

; 188 1 § 1 / This routine is the main command he routine. NICE messages 
; «4186 1 i! are parsed to determine the requested function and then the proper 
3 ne 4 : : } routine is called to perform tne function. 

: 189 61 $1 lee 

: 190 is 1 

: 6191 186 BEGIN 

; 135 189 

3; 19 0190 LOCAL 

: 194 0191 desc: VECTOR (2), ! Message descriptor 

; 195 0135 status; ! Temporary status 

; 196 019 

3; 197 0194 ! 

; 198 0195 ! Receive NICE messages and perform valid functions as long as the Link 

: 199 0196 !' is active. 

: 200 0197 ! 

: 201 0198 

3 $06 0199 WHILE TRUE 

; a 0200 dO 

; 204 0201 BEGIN 

: 205 a4 desc C1) = nml$ab_rcvbuffer; 

: 206 020 status = nml_recetve (.desc [1], 

3; 207 0204 nml$k_rcvbflen, 

: 208 0205 desc [0)); 

: 209 oso9 IF .status 

3 si9 0207 THEN ' 

z 211 0208 nml$process_nice(desc, nmi_response) 

See 

> 216 0211 i If the message received was too large for the buffer then send a status 
s 2t2 osi¢ ! message indicating the error. Any other errors indicate that the Link 
: 216 021 ! has been broken and NML should exit. 

3 217 0214 ! 

; 218 os 12 ; 

; 320 osig ? ELSE 

; 3 § 18 4 IF .STATUS EQLU SS$_LINKABORT ! If normal exit (via Link DASSGN 
: 38 o i} ? OR .STATUS EQLU SS$_LINKDISCON ! or formal disconnect) 

; 3 1 ? RETURN; ! then exit successfully 

: 36 5 2 E gots EQLU SS$_DATAOVERUN ! If message was too large, 

: 238 5 ? NML_RESPONSE(UPLIT(1, UPLIT BYTE(NMASC_STS_SIZ))) ! Send size error 
; 50 4 SIGNAL_STOP (.STATUS); ! Signal fatal error 

: : a 

: 235 0232 1 END; 


sz 
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yo%~000 NML COMMANDS” Main command process ng routine 12-80-1882 $3:20:43 DESKSVMERASTERSCNPL  SRCINMLMAIN.B32;1°%° (aS 


sé 


-PSECT $PLIT$,NOWRT,NOEXE,2 
BYTE -4 3 
“LONG 1 

“ADDRESS P.AAC ; 


.PSECT S$CODES,NOWRT,2 
000C 00000 NML_COMMANDS: 
WORD 


. Save R2,R3 3: 0177 
53 00000000v i 9000 HOVA NAL RESPONSE. R3 ; : 
04 AE 00000000° 00 3 9000¢ 1$: ROVAB NMLSAB_RCVBUFFER, DESC+4 : 9202 
7E 0200 BF Be 80016 MOVZWL #512, (SP) : $508 
0c AE DD 0001B PUSHL DESC+ F 
00000000v 99 2 FB D001 CALLS #3, NML_RECEIVE : 
0 pO 000 MOVL RO. STATUS : 
0€ 2 E9 00028 BLBC = STATUS, 2$ t 0206 
BD 900 B PUSHL R3 > 0208 
04 AE 9F 0002D PUSHAB DESC : 
000000006 00 03 rp 90030 CALLS ! , NMLSPROCESS_NICE : 
000020E4  8F 3 pt 90039 2$: CPL STATUS. #8420 : 0218 
000020EC 8F 52 Di 00042 cHPL STATUS, #8428 : 
00000838 8F 32 pi 90048 cHPL STATUS, #2104 : 0223 
00000000' 00 OF ike PUSHAB P.AAB > 0225 
63 01 FB O005A CALLS #1, NML_RESPONSE : 
AD 11 90040 BRB 1$ F 
52 DD OO05F 3$ PUSHL STATUS + 0227 
000000006 00 01 Fe 0006) CALLS ., LIBSSTOP Fine 
04 0006A 4$ RET : 0232 


; Routine Size: 107 bytes, Routine Base: S$CODE$ + 0024 
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IAL IIE initiatizetion routine Jane ea hae F3i81s eee Ghh tea Mtr she Sumumarw.es221°%° «5% 
ZSBITL "NML_INITIALIZE Initialization routine’ 
ROUTINE NML_INITIALIZE = 
14 


} FUNCTIONAL DESCRIPTION: 


This is the initialization routine for the DECnet-VAX Network 
Management Listener. This module establishes (accepts) the logical 
Link connection to NCP and initializes the data bases. 


ROUTINE VALUE: 
COMPLETION CODES: 


i 
i 
i 
i 
i 
i 
i 
‘ System service error is returned if initial assign for command Link 
: fails. Subsequent system service failures cause a resource error 
: (NML$_STS_RES) to be returned. If the connect data is invalid or 
: incompatible a compatibility error (NML$_STS_MVE) is returned. 
If the connect accept fails a network error code is returned. 


BEGIN 
OCAL - 
INI_10SB : $10SB ' Connect/reject 1/0 status block 
NCB-DSC : DESCRIPTOR, i Connect NCB descriptor 
STATUS; ! Temporary status 
Determine the mode in which NML is running. 
NML_GETMODE (); 
Dispatch to proper initialization routine. 
" SELECTU .NML$B_MODE OF 
NML$_CONNECT): 
STATUS = NML_CONNECT (); 
COTHERWISE): 
STATUS = NML$_STS_MPR; 
TES; 
RETURN .STATUS ' Return status code 
END; ! End of NML_INITIALIZE 
000C 00000 NML_INITIALIZE: 
.WOR Save R2,R3 ; 0234 
5€ 10 ¢2 00002 SUBL #16, SP ‘ 


NML_INITIALIZE Init 


00000000v 
00000000" 


00000000Vv o3 


: 286 0282 1 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER:CNML. SRC NMLMAIN.B32; 479 


#0, NML_GETMODE 
NNL SB MODE, R 


me Se Network Managemen pyener main module 
v04- Z zation routine 


nn 
ons 
0d 


SPNSODOOWUNMu —— 
wn 


Moron] = =00 


™m ae 
Be Be Be Ge Fe Ge Be Fe Be Se 


oS 
nn 


; Routine Size: 43 bytes, Routine Base: S$CODE$ + O08F 


STATUS = NML_VALIDLINK () 
NCBDSC COSC$A_POINTER) = 


“NMLSA_NCBADDRESS; 
IF .STATUS THEN 
BEGIN 


i Set up NCB to accept the connection. Add three bytes of version 
' number to the NCB that was received. Also use the length of the 
received NCB. 


CHSWCHAR_A (3, NMLSA_NCBDATA); 
IF CHSEQC (3, UPLIT BYTE (2,0,0) 
.NMLSA NEBOATA) THEN 
CHSMOVE (3, UPLIT BYTE (2,0 


WWW oO 


0), .NMLSA_NCBDATA) 


CHSMOVE (3, NML_ VERSION, .NMLSA_NCBDATA) ; 
NCBDSC CDSC$W_LENGTA] = .NMLSL_CMONCTBLEN; 


i Accept connection to command process. 


14 
NMLSMAIN Network Management Listener main module 1$-5e -1984 23:57:11 VAX-11 Bliss-32 V4.0-74 Page 11 
yO%=000 NML_ CONNECT Stonnect routine 12-808-138e $3:25 43 TT EKSUMGHASTERSCWHL SRCINMLMAIN.B3251 ’ (6) 
; 288 3 1 XSBITL_"NML_CONNECT Connect routine’ 
: 289 4 1 ROUTINE NML_CONNECT = 
: 290 +o 
; 291 0 § 1 !4¢ 
3 8 ! FUNCTIONAL DESCRIPTION: 
> 294 0289 1! This establishes (accepts) the logical Link connection to the 
: 295 6290 1! command process. 
; 296 0291 1! 
; 297 0 3 1 ! IMPLICIT OUTPUTS: 
; 443 Bz ! NML$W_CMD_CHAN Channel number for logical link to NCP 
; $30 C295 1 ! ROUTINE VALUE: 
3 $5) 8538 1 } COMPLETION CODES: 
; 308 0298 1! System service error is returned if initial assign for command Link 
; 304 1944 1! fails. Subsequent system service failures cause a resource error 
; 0300 1! (NML$_STS_RES) to be returned. If the connect data is invalid or 
: 306 0301 1! incompatible a compatibility error (NML$_STS_MVE) is returned. 
3 4 O08 ! If the connect accept fails a network error Code is returned. 
; 0304 1 !-- 
; By 0305 1 
s 31 0306 BEGIN 
3 0307 
> 2 0308 LOCAL 
: 1 0309 2 INI_10SB : $10SB ! Connect/reject 1/0 status block 
> 31 0310 2 NCBDSC =: DESCRIPTOR, 
: : bai} § STATUS; ! Temporary status 
; ; 0318 § Assign channel for Link to command process 
: 2 P 0315 STATUS = SASSIGN (DEVNAM = %ASCID ‘_NET:' 
: 32 0316 HAN = NMLS$W_CMD_CHAN); 
, te 031 IF .STATUS THEN 
s 6 6Se 0318 BEGIN 
3 Se 0319 ! 
3 $ oss : Check optional connect data for compatibility 
5 $ 0 ¢ 
3 ¢ 6 4 
3 0325 ? 
i 33 b359 
3 0328 4 
3 0329 4 
; 0330 4 
: 8 1 4 
; § & 
3 4 
3 4 4 
; 5 4 
3 § 4 
: 4 
3 3 a 
: 4 


IWAN NIA WIAA IANA NAA AANA AAA AAAI WWW 
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wh SAIN Network Management Listener main module 13-Sep-1944 THRE. ys 


v04-00 NML_CONNECT Connect routine Hd r 


V4.0-74 Pa 1 
aN SRCINMLMAIN.B3251°%" (Co 


~M™ 


liss- 
MASTE 


3 45 40 4 ‘ 

$ 46 P 0 41 4 STATUS = $Q10W (CHAN = .NML$W_CMD_CHAN, 

; 347 Pp tg 4 FUNC = IO$_ACCTESS; 

3 48 P 034 4 10SB = INI_I10SB, 

3 49 0344 4 = NCBBSC); 

3 9 0345 4 IF .STATUS THEN 

: 2} 8 r ¢ STATUS = .INI_IOSB CIOS$W_STATUSJ; ! Network error 

3 eg 0348 4 END 

3 54 0349 3 ELSE 

3 56 6 3} e BEGIN 

: 7 2 6 i Reject connection due to incompatibility. Add one byte reject code 
3 rH: 8 58 : to the received NCB. ° 4 d J 
; 360 beac 4 CHSWCHAR_A (1, NMLSA_NCBDATA); 

; 361 0356 4 CHSWCHAR~(.STATUS / 2, .NMLS$A NCBDATA); 

: 6 0397 4 NCBDSC COSCSW_LENGTH) = .NMLSC_CMDNCBLEN; 

> 364 P 0359 4 $Q10W (CHAN = .NMLS$W_CMD_CHAN ' Channel 

: 365 P 0360 4 FUNC = I0$_ACCESS OR [OSM_ABORT,! Reject function code 
; 366 0361 4 = NCBBSC); ' Reject NCB 

s 367 oes 4 

; 368 0365 3 END; 

; 369 0364 2 END; 

3; 370 0365 2 

5s Sri 0366 § RETURN .STATUS ' Return status code 

s Ste 0367 

5 oe 0368 1 END; ! End of NML_CONNECT 


-PSECT S$PLIT$,NOWRT ,NOEXE,2 


00 00 00 3A 54 45 4E SF QQO0C P.AAE: .ASCII \_NET:\<0><0><0> i 
010E0005 00014 P.AAD: .LONG 17694725 : 

00000000' Bate -ADDRESS P.AAE ; 

00 00 02 QOOIC P.AAF: .BYTE - 0. 0 : 

00 00 02 OOO1F P.AAG: .BYTE - 0, 0 : 


-EXTRN SYSSASSIGN, SYS$QI10W 
-PSECT S$CODES,NOWRT,2 
07FC 00000 NML_CONNECT: 


WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10 : 0284 
SA 990000006 00 9E 9002 MOVAB SYS$QI10W, R10 ; 
59 99000 00° 00 9€ 0000 MOVAB P.AAD, R F 
58 00000000° 00 H 0 19 MOV NMLSA_NCBDATA, R8 ; 
5E 1 ¢ 0 1 SUBL2 #16, SP ; 
ve C iA CLRO. = : 0316 
F8 AB OF O00IC PUSHAB NML$W_CMD_CHAN ; 
59 DD OOOTF PUSHL ; 
000000006 00 h Ff 0 1 CALLS #4, SYSSASSIGN : 
4 0 D 8 MOVL RO, STAT : 
F 6 E 6 4 BLBC _—s STATUS, : O37 
00000000v 0 00 FB 0002E CALLS #0, NML_VALIDLINK : 0322 


14 
wm See Network Management pte main module 15-Sep-1984 $3730] VAX-11 Bliss-32_V reg ge 13 
04-00 NML_CONNECT Connect rout 14-Sep-1984 750: DISKSVMSMASTER: CN me SRC NMLMAIN.B32; y (6) 
56 50 D A MOVL RO, STATUS ; 
04 A FC | =OAB OCOD MOVL NMLS$A “NCBADDRESS NCBDSC+4 : 325 
2 68 D p MOVL § NMLSA-NCBDATA, RO : 0331 
FL ABO 4 MOVL NMLSLCMD BNCBLEN R7 + 0337 
6 § : 44 R7, NCBDSC ; 
FB AB § 47 MOVZWL NMLS$W_CMD CHAN, R5 + 0344 
40 5 F 4B STATUS, 48 ; 0324 
60 03 90 0004E MOVB = #3,_ (RO) + 0331 
68 D 0091 INCL § NMLS$A_NCBD ; 
54 6 0 L_ _NMLSA-NCBDATA, R4 + 0333 
64 08 Ag 0 056 CMPC3 «#3, P-AAF, (R4 : 0332 
08 ‘ 08 NEQ 18 : 
64 1B 00 08 ay FO 6 : INsv B AAG. #0, #24, (R4) + 0334 
64 18 00 EC Ad FO Mit 1$: INSV  NML_VERSION, #0, #24, (R4) : 0336 
7E 7C 00068 2$: CLRQ = = (SP) + 0344 
7E 7 90060 CLRQ = =(SP) ; 
10 AE 9F O006F PUSHAB NCBDSC ; 
7E 7C 00072 LRQ ss = (SP) : 
7E D4 00074 LRL ss = (SP) : 
28 AE SF 00076 PUSHAB INI_IOSB ; 
32 Dd 00079 USHL #50 : 
55 DD 00078 PUSHL 5 ; 
7E D4 0007D CLRL. = = (SP) ; 
6A OC FB 0007F CALLS #12, SY $$010u : 
56 50 00 00082 OVL RO, STATUS ; 
2c 6 £9 0008 LBC —« STATUS rf > 0345 
56 08 AE 3C 00088 MOVZWL INI 1088, STATUS + 0346 
26 11 0008C 3$: RB $ : 0324 
60 01 90 9008 4$: MOVB #1, (RO) : 0355 
68 D6 0009 INCL § NMLSA_NCBDATA : 
50 68 D0 00093 MOVL. NMLSA"NCBDATA, RO : 0356 
51 56 02 ¢ 00096 DIVL3 #2, STATUS, Ri ; 
60 51 90 OO009A MOVB RI. (RO ; 
7E 7C 90090 CLRQ 2s = (§P) > 0361 
7E 7C O009F CLRQ = = (SP) ; 
10 AE OF 9041 PUSHAB NCBDSC : 
7E 7C 0 AG CLRQ = = (SP) ; 
7E 7C 000A CLRQ = = (SP) ; 
7E 0132 8F 3C 000A MOVZWL #306, -(SP) ; 
5 DD OOOAD PUSHL 5 : 
7E D4 OAT CLRL.  =(SP) : 
A g¢ FB 000B1 CALLS #12, SYS$Q10W : 
0 6 BO 0084 S$: MOVL STATUS, RO : 0366 
4 00087 ET : 0368 


; Routine Size: 184 bytes, Routine Base: $CODE$ + OOBA 
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NMLSMAIN Network Management Listener main module 1b-Se -1984 23:57:1 VAX-11 Bliss-32 V4.0-74 4 
yo%~000 NML_VALIDLINK Version compatibilty check routi 122800-1 384 $3:25:4 DLSKSVMGMASTERSENML SRCINMLMAIN. B32; 12°" a) 


SsSs 


—OODNOUSWN “OO OONOUS WHO 0OnN 


LOCAL 
NCP_VERSION : VECTOR (3,BYTE); ! Command node NICE version number 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
é 
i 
; Find optional data in NCB (two bytes past '/" character) 


75 1 ZSBTTL_ "NML_VALIDLINK Version compatibilty check routine’ 
1 $3} ROUTINE NMCCVALIDEINK = : . 
as q) 14 
3 i ! FUNCTIONAL DESCRIPTION: 
81 75 i The process attempting to connect to NML must pass an NCB which, in 
fi 6 ' the Set tenet data fietd, contains a NICE veraton number. This is 
8 37 ! the version of NICE which the process expects to use in communicating 
84 4 ! with NML. This routine examines the version number to make sure it 
&5 3 is compatible with those versions of NICE spoken by this version of NML. 
a Hi i IMPLICIT INPUTS: 
365 358 } NMLSA_NCBDATA contains the pointer to the NCB from NCP. 
390 384 IMPLICIT OUTPUTS: 
336 $88 ! NMLS$AB_RCVBUFFER contains the received NCB. 
39 38 H NMLSL_CMDNCBLEN contains the Length of the received NCB. 
394 388 : NMLSA_NCBDATA contains the pointer to the optional NCB connect data 
$32 $08 } in NMLSAB_RCVBUFFER. 
339 391 i ROUTINE VALUE: 
305 338 COMPLETION CODES: 
400 94 ! If receive Network Management version number is not greater 
401 395 : than or equa) to our own then NML$_STS_MVE is returned otherwise 
40 z09 success (NML$_STS_SUC). 
404 8 leo 
405 9 
0 
4, 
5 
6 


NMLSA_NCBDATA = CHSFIND_CH (.NMLSL_CMDNCBLEN 
zt $A-NCBADDRESS, 


IF NOT CHSFAIL (.NMLSA_NCBDATA) THEN 
NMLSA_NCBDATA = .NALSA_NCBDATA + 3 ! Skip '/' and two bytes 
RETURN NML$_STS_MPR; } 
i Compare received version with our own. Value greater than or equal 
! is successful (Phase III). Less than three bytes_of optional data or 
} value less than our own but not version 2.0.0 or 3.0.0 fails. 
if CHSRCHAR (.NMLSA_NCBDATA) EQLU 0 THEN 
If no version number in the NCB, assume Phase II, NICE V1.3.0. 


BEGIN 


Return error 
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Network Management Listener main module 1.88 138% $3: aft 11 
v04- NML_VALIDLINK Version compatibilty check routi 12: =8ep-4 12 


or 


—-—> 
_ 
je 
<_— 
nw 


$$-32_V4.0-74 p 
ASTERSCNML SRCINMLMAIN.B32;1°%° (PS 


o=<= 


3; Routine Size: 88 bytes, Routine Base: S$CODE$ + 0172 


; 6 2 04 6 CHSMOVE (3, UPLIT BYTE(1,3,0), NCP_VERSION); ; 
; 4 ; ; END ; 
: 435 be § BEGIN ; 
: 4636 0430 IF CHSRCHAR (,NMLS$A_NCBDATA) EQLU 3 THEN ; 
; 437 04 1 CHSMOVE (3, .NMCSA_NCBDATA+1, NCP_VERSION) : 
; 639 04 § ad RETURN NML$_STS_MVE; ; 
> 441 0435 2 IF NMLSENITIALIZE (NCP_VERSION) THEN ; 
; tts Be $ “met URN NML$_STS_SUT : 
> 4b be & $ RETURN NML$_STS_MVE; ; 
> 445 0439 1 END; ! End of NML_VALIDLINK ; 
.PSECT $PLIT$,NOWRT,NOEXE,2 : 

00 03 01 00022 P.AAH: .BYTE 1, 3, 0 ; ; 

.PSECT S$CODE$,NOWRT,2 ; 

0004 00000 NML_VALIDLINK: ; 

-WORD Save R2 ; 0370 ° 

52 00000000" 00 9€ 00002 MOVAB NMLSA_NCBDATA, R2 ; : 

SE 04 C2 00009 SUBL2 #4, ; : 

50 FC A2 DO 0000C MOVL NALSA NCBADDRESS : 0409 ; 

60 F4 A 2F 3A 00010 LOCC} = #47, -AMLSL_ MONBLEN, (RO) + 0408 : 

02 12 00015 BNEQ +7 : 

51 D4 00017 CLRL sR ; : 

62 51 00 00019 1$ MOVL §_R1, NMLS$A_NCBDATA ; : 

05 13 0001C BEQL + 0412 F 

62 03 cd OO01E ADDL2 #3, NMLSA_NCBDATA + 0413 i 

04 11 00 BRB : : 

50 OA CE 00023 2$ MNEGL #10, RO > 0415 ; 

04 00026 RET 3 . 

50 62 p0 0027 3$ MOVL NMLSA_NCBDATA, RO + 0421 ; 

60 95 OO02A TSTB —s- (RO) ; : 

0B 1 00 C BNEQ 4$ : : 

6E 18 00 00000000° 00 FO 00 E INSV P,AAH, #0, #24, NCP_VERSION + 0426 : 

B 11 BRB ; d4ei ; 

03 60 91 9 4$ CMPB ss (RO), #3 : 0430 ; 

5 12 C BNEQ : ; 

6E 18 00 01 AO F E INSV 1(RO), #0, #24, NCP_VERSION : 0431 ’ 

3 DD 044 5$ PUSHL > 0435 ; 

000000006 00 1 FB 46 CALLS #1, NMLSINITIALIZE ; : 

04 50 £9 0004 BLBC ; : F 

0 01 bo i MOVL #1, RO > 0438 ; 

50 OE CE 4 6$ MNEGL #14, RO : 

65 $8 7 RET > 0439 ; 
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ZSBITL "NML_GETMODE Determine the mode in which NML is running’ 
ROUTINE NML_GETMODE : NOVALUE = 


'+¢ 
, Pao DESCRIPTION: 

This routine determines the mode in which NML is running by 
determining how the image was activated. NML runs one of in two 
modes: 

Communicating with NCP_on a remote node via a logical Link, 
processing NICE commands. 

In autoservice mode - we down Line loads and hoopeacs 
functions requested by other nodes using the MOP 
protocol. 

FORMAL PARAMCTERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 


NMLS$B_MODE contains the mode in which NML is running. 
(it may be unchanged if we cannot determine the mode) 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
STATUS; ! Temporary status 


: Get optional connect data or service circuit name by translating SYSS$NET 


STATUS = STRNLNM (ATTR = UPLIT (LNMSM CASE BLIND) 
TABNAM = 3A REDD SLNASPROTESS. TABLE", 


TTMUST = UPLIT (WORD Cent $k _revbflen), 
LONG (nml$ab yi eee 
LONG gnardt _emdncblen), 
LONG (0)) 


Ee 
IF _.STATUS EQLU SS$_NORMAL 
THEN 


$232 V 
TERSCWAL SRCINMLMAIN.B32;1° 7° 


o-— 
~-N 


sz 
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NMLSMAIN Network Management Listener main module 14. “Se 4 VAX-11 Bi leee 32 _V 
voe-0 NMC GETRODE Moetermine the mode in chich NAL is 1a-Sepe1obe To:ebc1s — NAEKSUMOMAS TERS Clo SUCINMLMAIN.832:9°%" «Be ve 
3 04 4 N 
3 305 a38 _— 
$ Be 49 Since SYSSNET translates, NML was activated by a connect request 
: 4 any from an NCP on a remote node. 
: 509 30¢ ML$B_MODE = NMLS_CONNECT; 
: 311 2b7 NAL SAL NCBADDRESS = NMLSAB_, RCVBUFFER; ! Initialize NCB pointer 
: 51 505 
: 218 0506 1 END; ! End of NML_GETMODE 


«PSECT S$PLIT$,NOWRT,NOEXE,2 


0025 -BLKB 
02000000 009 8 P.AAI: .LONG 3554432 3 
42 41 54 SF 53 53 45 43 4F 52 50 24 4D i 4C Q002C P.AAK: .ASCII \LNMSPROCESS_TABLE\<0><0><0> 5 
00 00 00 45 4C 00038 3 
010E0011 00040 P.AAJ: .LONG 17694737 3 
00980099" Bee »ADDRESS P.AAK 3 
00 54 45 4E 24 53 5 048 P.AAM: .ASCII NST SPH T\<0> ; 
ahs 4494 0050 P.AAL: .LONG 17694727 3 
00000000° 00054 -ADDRESS P.AAM 3 
4 0058 P.AAN: .WO 3 
bs Q005A WOR 2 3 
00000000° 0005C “ADDRESS NMLS$AB_RCVBUFFER § 
00000000" 00060 wi NMLSL_CMDNCBLEN 3 
00000000 00064 ONG 0 : 


-EXTRN SYSSTRNLNM 

-PSECT SCODES,NOWRT,2 
Q00C 00000 NML_GETMODE: 

- WORD 


Save R2,R3 
53 00000000' 00 9€ 90002 MOVAB NL $B MODE. R3 
52 00000000' 00 9E 9000 MOVAB P.AAN> R2 
2 DD 00010 R2 
pe 0012 L -(SP) 
FB Ad SF 00014 PUSHAB P.AAL 
E8 Ad 9F 00017 PUSHAB P.AAJ 
dO A 9F OOOIA PUSHAB P.AAI 
000000006 90 9 FB 0 1D CALLS #5, SYSSTRNLNM 
1 D1 4 CMPL STATUS, #1 0495 
08 if 0027 BNEQ ; 
63 1 90 00029 MOVBso#1, ODE 9502 
0c A3 1¢ AS 9E B88 C MOVAB NMC SAB” SO OnOr FER. NMLSA_NCBADDRESS 050 
04 00031 1$: RET 0506 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + OI1CA 
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yo%~000 Paar s Ti $3220: 13 DIKSVMGHASTERSCNML  SRCINMLMAIN.B3251 ’ (9) 
ine 
EN) 


15 4 ZSBTTL "NML_RECEIVE Network receive routine’ 
1 508 ROUTINE NML_RECEIVE (BUFADR, BUFLEN, RCVLEN) = 
218 2 '4+ 
i 2 } FUNCTIONAL DESCRIPTION: 
: 1 5 This routine receives NICE protocol messages over a logical Link 
5 ¢ 2 from a command process (generally NCP). 
¢ : FORMAL PARAMETERS: 
§ 5 BUF ADR Address of the receive buffer. 
5 BUFLEN Length of the receive buffer. 
& 2 RCVLEN Actual Length of the received data if successful. 
5 


IMPLICIT INPUTS: 

NMLSW_CMD_CHAN Channel assigred to the command process Link. 
IMPLICIT OUTPUTS: 

The buffer pointed to by BUFADR contains the received data. 


! ROUTINE VALUE: 
COMPLETION CODES: 


System service completion status is returned if receive fails 
indicating that the Link has been terminated for some reason. 
Otherwise success is returned. 


SIDE EFFECTS: 


BEES EWAN WIWIWIWIRIPIPINININININININY 2 2 SS SO 
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5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 NONE 

5 

5 - 

5 

: BEGIN 

5 LOCAL , 

5 RCV_IOSB : $I10SB, ' Receive I/0 status block 

3 STATUS; ! Temporary status 

268 Receive a NICE message 

P 324 STATUS = $Q1OW (FUNC = I0$_READVBLK, ' Function 
P 225 CHAN = .NMC$W_CMD_CHAN, ' Channel 
61 P 055 10SB = RCV_IOSB, ' 1/0 status block 
6¢ P 0554 Pi = .BUFADR ' Buffer address 
o? 22? P2 = .BUFLENS; ! Buffer length 
268 339 : lf system service completed successfully get network status 
$3 236 IF .STATUS 
68 560 
, 261 STATUS = .RCV_IOSB CIOS$W_STATUS); ; 

71 268 ! If network status is success then get received message length 


<= 


; Routine Size: 


580 


Network Management Listener main module 
NML_RECEIVE Network receive routine 


4 ! 
age IF .STATUS 
298 HEN 
086 eRCVLEN = .RCV_IOSB CIOS$W_COUNT); ! Return 
0369 RETURN .STATUS ! Return 
0571 END; ! End of 


0000 00000 teenage 


5E 98 2 80008 
E 7C 0000 CLRQ 
7E 7C 00007 CLRQ 
7E 04 aC 7D 00009 MOVQ 
7E 7C 00000 CLRQ 
20 AE 9F OO00F PUSHAB 
31 DD 00012 PUSHL 
7E 00000000" 00 3¢ 00014 MOVZWL 
7E 04 00018 CLRL 
000000006 00 OC FB 0001D CALLS 
08 50 ? 00024 LBC 
50 6— 3C 00027 MOVZWL 
05 50 ? Q002A LBC 
oc =e 02 AE 3C 00068 MOVZWL 
04 00032 1$: ET 


51 bytes, Routine Base: S$CODE$S + OIFC 


0572 1 


1-5 -1984 23:57: 
12280871382 $3:2; 


! VAX-11 BL 


received data length 
status code 
NMLSRECEIVE 


+ aa nothing 


RCV_10SB 

#69 

mrp 0 10 =(SP) 
SYS$Q10W 

ACV} 1088, STATUS 

RCV_108B+2, @RCVLEN 


1 iss-32_V r 
2 DISKSVMSMASTER: cme she NMLMAIN.B32; 479 (9) 


0508 
0555 
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NML RESPONSE "Network response routine 12286871 38¢ #352534 DISKSVMSMASTER: CNML.SRCIJNMLMAIN.B32; 1 . 18) ve 

73 1 ZSBITL "NML_RESPONSE Network response routine’ 

fe ! ROUTINE NML_RESPONSE (BUFDESC): NOVALUE = 

76 1 S44 
377 1! 

4 1! This routine is called to process a NICE response as a result 
oy a of processing a NICE message. This routine may be called as 
580 1! many times aS necessary during the processing of a single NICE 
H 1 : } message. 

$8 : 1! Inputs: 
584 1! 
2 5 } bufdesc Address of descriptor of message to be transmitted. 
387 ! nml$w_cmd_chan Channel assigned to the command process Link. 
0389 : Outputs: 
0591 1} Returns success. Errors are signalled. 
0808 1 
0594 BEGIN 
BS 8 we 
0397 : bufdesc: REF BLOCK C,BYTE); ! Address of descriptor 
$399 LOCAL 
0600 snd_iosb : $I0SB, ! Send I/0 status block 
0601 status; ' Temporary status 
060s 3 
0604 i Send the NICE response message 
0607 status = $Q]0W (FUNC = IO$_WRITEVBLK, 
0608 CHAN = .nml$w_cmd_chan, 
0609 10SB = snd_iosb, 
0610 Pl = .bufdesc fdsc$e_ ointer], 
bets ; P2 = .bufdesc Cdsc$w_length)); 
at ; If system service was successful then get network status 
615 2. 
1¢ IF_ STATUS 
+ STATUS = .SND_IOSB CIOS$W_STATUS); 
0 ' 
; If status is bad then signal the error. 
¢ IF NOT .STATUS 
§ SIGNAL_STOP (.STATUS); 
628 END; 
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NMLSMAIN Network Management Listener main module 18-5 p-1984 7:1 VAX=11 i 
yO%~000 NML “RESPONSE Network response reut ine 12-868 71382 93: 353] ST SKSVMGHASTE x cle” SRCINALMAIN. B32;1 fave 185 


0000 00000 NML “inaader 3 


Save nothin ; 0574 

5E 08 1 9002 ate WB, SP . : 
— 7C 909 CLRO. 0 = ( §p) + 0611 

7E 7C€ 00007 CLRQ = = (SP) : 

50 04 =A 06 0009 MOVL § BUFDESC, RO : 

E 60 3C 0000D MOVZWL (RO), =(SP) : 

04 AO DD 9901 PUSHL 4(ROS : 

7E 7C 0001 CLRQ. = =(SP) : 

20 AF 9F 0001 PUSHAB SND_I0SB : 

3 bp 00018 PUSHL #48 ; 

7E 00000000' 00 3C OOOIA MOVZWL NMLSW_CMD_CHAN, -(SP) : 

7E D4 00021 CLRL = =(SP)~ : 

000000006 00 OC FB 00023 CALLS #12, SYS$QIOW ; 
06 50 & 0002A BLBC STATUS, 1 + 0616 
50 6— 3C 00020 MOVZWL SND_IOSB, STATUS + 0618 
‘ a Mt Bee 

000000006 00 01 FB 00035 CALLS #1, LIBSSTOP : 
04 0003C 2s: RET : 0628 


; Routine Size: 61 bytes, Routine Base: $CODE$ + 022F 


+ 


NMLSMAIN Network Management Listener main rodule 
yo%~000 7 tine 


1 
NML_RESPONSE Network response routine 1B-3e Ha $3:25 13 Bis KSVMGMA SfERe chm tf: NMLMAIN.B32; “ 
' 


$73 poe? 1 Fon ! End of module 


-EXTRN LIBSSTOP 
PSECT SUMMARY 


Name Bytes Attributes 
SPLITS 196 seid $E NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 238 A RT, RO ,NOEXE,NOSHR, LCL, REL, CUN,NOPIC,ALIGN(2) 
SCODES 62 NOVEC. ;NOWRT, RD; EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


eocecece Symbols -<-<----- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: potty phot! tre 341 15 4 27 00:00.1 
“$255$DUA28: SHRL IBINMALTBRY i 231 887 j 0 47 00:00.¢ 
_$255$DUA28 : CSHRLIBINET.L32;1 160? 0 0 63 00:00. 
“$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 18 0 581 00:03.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS:NMLMAIN/OBJ=OBJ$:NMLMAIN MSRC$:NMLMAIN/UPDATE=(ENHS:NMLMAIN) 


; Size: 620 code + 644 data bytes 
Run Time: 00:16.8 
Elapsed Time 00:41.9 


Lexemes/CPU-Min: 14233 3 
poe | Used: 101 pages 
Compilation Complete ; 
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